﻿Imports Capa_de_Acceso_a_Datos
Public Class frmLogin

    Private Sub btnIniciarSesion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciarSesion.Click
        If CamposCompletos() Then
            Dim idEmpleado As Integer = UsuarioDAO.obtenerEmpleadoId(txtUsuario.Text, txtContrasena.Text)
            If idEmpleado > 0 Then
                frmMenuAuditoria.empleadoId = idEmpleado
                frmMenuAuditoria.Show()
                Me.Dispose()
            Else
                MsgBox("Usuario o clave incorrecta", MsgBoxStyle.Critical, "Error Inicio Sesión")
                txtContrasena.Text = ""
                txtContrasena.Focus()
                Return
            End If
            'frmMenuAuditoria.empleadoId = 1
            'frmMenuAuditoria.empleadoNombre = "Vidal Laura"
        Else
            MsgBox("Por favor complete todos los campos", MsgBoxStyle.Critical, "Error Inicio Sesión")
        End If
    End Sub

    Private Function CamposCompletos() As Boolean
        Dim retorno As Boolean = True

        If txtUsuario.Text.Trim = "" Or txtContrasena.Text.Trim = "" Then
            retorno = False
        End If

        Return retorno
    End Function

End Class